(set @default-dest "")
(set @pretend 1)

(welcome
	"I'm glad you've decided to Install Quip 0.07c.  " 
	"I hope you enjoy this program.\n\n"
	"-       Joseph E. Van Riper III\n(A Cheese Olfactory Workshop Supervisor)\n\n"
)

(if
	(askbool 
		(prompt "Do you want Quip.dat installed?")
		(help "Quip.dat is a half-meg datafile for Quip to grab quips from.  "
		      "Quip.tab is a tablefile already created for Quip.dat.  "
		      "There are over 3,000 quips in Quip.dat."
		)
		(default 1)
	)
((set datadir
		(askdir
			(prompt "What directory to put Quip.dat or Quip.tab in?")
			(help "It's recommended to stick with the s: directory, "
			      "since Quip defaults to looking for 's:Quip.dat', "
			      "but the choice is really yours."
			)
			(default "s:")
		)
)

(complete 14)

(copyfiles
	(prompt 
		"Now copying 'Quip.dat'."
	)
	(source "cookie.dat")
	(newname "Quip.dat")
	(dest datadir)
)

(complete 28)

(copyfiles
		(prompt "You may now want to have the tablefile copied with the datafile.")
		(help 
			"It is recommended to use a tablefile with the "
			"datafile, as it can speed up the search for a quip "
			"while running Quip.  You can create one with Quip at "
			"any time, though."
		)
		(source "cookie.tab")
		(newname "quip.tab")
		(dest datadir)
		(confirm)
)))

(complete 42)

(if
	(askbool
		(prompt "Do you really want to install Quip?")
		(help "I know it sounds like a crazy question, but it begs asking.")
		(default 1)
	)

((set progdir
		(askdir
			(prompt "What directory to put Quip in?")
			(help 
				"I recommend putting Quip somewhere in your system's path.  "
				"I'm counting on you having a 'SYS:Utilities' directory, "
				"but perhaps you have somewhere else in mind.  The icon will "
				"be copied with Quip, and the DATA ToolType will be set to "
				"where you had the datafile sent.  If you don't want to copy, just"
				" humour me with any answer, and skip past the next part."
			)
			(default "SYS:Utilities")
		)
)

(complete 56)

(working)

(if (OR (< (getversion "Quip") (getversion ("%s/Quip" progdir)))
        (= (exists ("%s/Quip" progdir)) 0)
    )

((copyfiles
		(prompt "Copying Quip.")
		(help 
		"You may decide not to copy Quip anywhere, but then, "
		"why did you run this utility?")
		(source "Quip")
		(dest progdir)
		(infos)
))


(tooltype 
		(settooltype "DATA" ("%sQuip.dat" datadir))
		(settooltype "pre")
		(settooltype "suf")
		(noposition)
		(dest ("%s/Quip" progdir))
))))

(complete 70)

(if
	(askbool
		(prompt "Do you want Quip.guide installed?")
		(help "Quip.guide is the only help file available for Quip.  "
		      "It includes information on how to make the QuipScript "
		      "features of Quip work.  If you intend to use it from the CLI "
		      "exclusively, you can always 'quip ?' and then '?' again "
		      "for some fairly decent instruction."
		)
		(default 1)
	)
((set guidedir
			(askdir
				(prompt "Where do you want Quip.guide?")
				(help
				"Just that.. where'd you like to keep the documentation?  "
				"If you don't want the documentation, just amuse me with any old answer,"
				" and 'skip' past the next operation."
				)
				(default "SYS:docs")
			)
)

(complete 84)
(working)

(if (or (< (getversion "Quip.guide") (getversion ("%s/Quip.guide" guidedir)))
        (= (exists ("%s/Quip.guide" guidedir)) 0)
    )
(copyfiles
		(prompt "And now.. the actual COPYING of Quip.guide.")
		(source "Quip.guide")
		(dest guidedir)
		(help @copyfiles-help)
		(infos)
))))
(complete 100)
(message "You may want to modify the tooltypes for Quip, to point to your datafile.  "
         "There is a mild chance that it was bungled during the installation.")
